#!/usr/bin/perl -w
use 5.010; 

  for (@ARGV) {
  when ( -r $_ ) {
  print "file $_ is able to read \n";
  continue;
  } 
  when ( -w $_ ) {
  print "file $_ is able to write \n";
  continue; 
  }
  when ( -x $_ ) {
  print "file $_ is able to execute \n";
  continue;
  } 

}

